home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
faq
/
tg15demo.lha
/
Trx
/
about
next >
Wrap
Text File
|
1995-06-17
|
642b
|
18 lines
/* arexx script */
idcmp = 'CLOSEWINDOW+GADGETUP'
flags = 'WINDOWCLOSE+BACKFILL+ACTIVATE'
address ARexx "'call CreateHost(hostport, notifyport, trekguide)'"
WaitForPort hostport
WaitForPort hostport
call OpenWindow(hostport, 140, 80, 385, 254, idcmp, flags, 'About Trek-The Guide')
call SetNotify(hostport, CLOSEWINDOW, hostport)
/*call windowtext(hostport, 'Trek-The Guide v1.5\©1995 Jim Hines REGISTERED VERSION\ \Distributed by Exclusive PD, UK\ \Star Trek and related marks are\trademarks of Paramount Pictures\ALL RIGHTS RESERVED')*/
call IFFImage(hostport, 'TREKGUIDE:TREKPICS/UFP', 5, 11, 390, 256, nocolor)
closeport(hostport)